O5000(NEON DRILL MACRO)
(ABSOLUTE MACRO) 
(WORKS) 
 
(FORMAT G65/G66 QRZEFIH)
(Q = #17 - STEPOVER IN Z/ DOC) 
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO) 
(E = #8 - END OF DRILL IN Z) 
(F = #9 - ENTRANCE FEEDRATE) 
(I = #4 - PECK FEEDRATE) 
(H = #11 - IN AND OUT FEEDRATE) 
(*********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100] 
IF[[#26*#8]GE0]GOTO1 
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17] 
#102=#100/#101 
#103=#5001 
#105=#5002 
G0G90X#103Y#105
Z#18 
G1Z#26F#9
#106=#5003 
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1. 
G1Z#106F#4 
Z#18F#11 
Z[#106+.005] 
#106=#106-#102 
END1 
N10G0G90Z#18 
X#103Y#105 
M99
